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WHO GETS A PROCESSOR 


In essence: the highest priority job that needs it. 
GISMO “micro-scheduler" allocates processor(s). 


Scheduler called 
1> by SYSTEM/INIT to start the MCP 
2) whenever any program (including MCP) interacts 
with operating system via “communicate”. | 


Scheduler: 
Checks for non-correctable memory errors and halts 


Handles interrupts appropriately 
(timer interrupts, I/o interrupts; console 
interrupt switch, port interrupts? 


Works with 2 bits: “reschedule" and "“timer_occurred".~ 


Timer _occurred Cevery .1 seconds): 
updates MPRI fields in all links 
sees if any peripherals have changed state 
(tape or disk mounted, card reader on etc.)_ 
adjusts wait time for jobs hung on time | 
“causes" jobs if time decrements to zero 


WHU GETS A PROCESSOR (continued) 


Reschedule bits ‘Cone per processor) 
Avoids needlessly rescheduling a processor back to 
the same job 


Set when a higher priority job needs the processor 


Hi-priority interrupt Creader-sorter) 
GISMO immediately runs MMCP reader-sorter code 
which tanks check images and calls user’s use 


routine 


MCP first choice if “ready" to run Chad been preempted 
by higher-priority job while running) and either 
ad MCP-—dispatched I/0 complete 
b> MCP wants control exclusively "“hlocking"™ 
processors | | 
c)} N-SECOND time Ca periodic housekeeping 


time > 


Otherwise, highest priority job needing processor 
gets its SMCP wins all ties. Selected job marked 
“not queued" and reinstated. | 


SLAVE scheduler similar 
. timer not checked or handled 
.« must be aware of blocking requests from master 
- won’t select jobs in the S_COMM_QUEUE 
. takes highest-priority job in "READY QUEUE, 
“TOC QUEUE;" or M_COMM_QUEUE". If none, merely 
idles. : | an 


BRINGING UP THE SYSTEM 


CLEAR/START = 
Dumps memory if requested 
Reads in SYSTEM/INIT and transfers control. 


SYSTEM/INIT 
Finishes system dump —- dumps certain structures 
and MCP’s layout tables 
Locates system disk, ODT channel; master processor 
Ascertains if there’s a slave processor: allocates 
data space for it | 
Allocates memory fors 
HINTSs 
code directory for MCP; 
interpreter directory; 
CSV Cand reads the structure in): 
GISMO; 
lamps on B1S800;3 
MMCP’s data areas 
“chip” tables 
SMCP RSN. 
Reads in GISMO: discards certain segments 
Checks firmware compatabilities 
Reads in 3 segments of SMCP 
page zero, seg 0 (tiny: merely gets us dill 
page one, seg 2 (our C/S code) 
page one, seg 0 (all non-overlayable MCP code?) 
Sets up memory Links 
Loads SDL2 interpreter 
Fires slave and gives to GISMO 
Clears cache | 
Gives master to GISMO 


BRINGING UP THE SYSTEM (continued?) 


MCP procedure "GET_READY" 
Checks compatabilities 
Checks DD validity 
Sets up system date/time from pre-C/S value. 
Allocates space for and creates 
MCP disk descriptor 
-SYSTEM/ODT’s ODT descriptor 
Allocates space for and creates all the 
structures used on a running system 
IOAT; channel tables: job queues, etc. 
Ascertains what is on every port & channel via, 
| test ops 
Elogs the C/S hardware & software configurations 
Cleans up system disk 
Initiates: PANDA for "protected" files on 
system disk 
SYSTEM/ODT 
handler 
MCS 
Checks dumpfile for proper size 
Checks “truth table" 
Spouts "“CLEAR/START" message 


MCP then enters its main driving procedures 


GET _SET___ GO 


MCP OUTER LOOP 


MCP always sitting in a wait statement just 


any user program. 


Waits for one of five events to occur. 


The five events ares: 


13> 
2) 
3) 
> 


> 2 


TIME 


INTERRUPT for MCP 


READ_OK 
"S C Qo" 

MCP 
“change 


Jargons it 


When any program in a wait 


on the queue from SYSTEM/ODT 
events some job has need for 


service 


like 


hit"s:s we hope to send a joh to BOL 


is “HUNG" on the five events. 


its wait events come true, GISMO “causes" 


program. 


"Cause" 


=> put program into its next 


queue unless the 
set in its RSN, 


status has one of 
the 


“intervention bit" is 


in which case it is given 


to the MCP Cput in the S_COMM_QUEUE), 
normally for rollin. | 


Prioritization of events: if two or more occur before 
GISMO can check events, the leftmost event is caused. 


THE TIME EVENT 


-« MCP always waiting on TIME 

- Time interval recalculated every time MCP wakes up 
on some other event 

- Arbitrary intervals 3 x jobs_running; 

> <= interval <= 40 

- We term the interval, as well as the tasks performed 
when the interval lapses, "N SECOND". | 

- MCP can hasten the onset of N_SECOND when it is 
desirable not to wait for up to a minute. 
Examples setting up a pseudo reader via RN 1 
We term this "forcing N_SECOND" | 


When time event comes true, MCP invokes procedure 
EXTERMINATE _AND_N_SECOND, whichs 


1> Exterminates jobs that are to be automatically 
DSed. 
a>? Jobs that aborted with TERM or TRMD 
b> Certain critical system programs that 
failed (SYSTEM/ODT for example) 


2) Calls procedure N_SECOND. 


N-SECOND FUNCTION 


Rolls out jobs to free up memory 

- ALL "ST"-ed jobs 

—- lowest priority “waiting job" after i n—-second 
grace period 


DR/TR prompt 


Ad justs various day, dater and time counters 
- "GOOD MORNING" message at midnight 


Checks obs for exceeding time limits 
Initiates any pending delayed random I/0’s 
Checks jobs waiting STARTTIME 

Initiates pseudo readers 

Transfers ELOG if it’s rather full 

Updates LOG_MIX_INFO 

Gueuve file garbage collection 


Fires up SYSTEM/BACKUP if autobackup 
parameters warrant 


Fires up SYSTEM/ODT if it went down 


Updates error rate tables (ER stuff) 


N-SECOND FUNCTION Ccontinued) 

» ELOGs errors from disk cache on B19970 

-« Handles RESTARTS if all necessary packs online 
- Writes Cold Start Variables (Cevery 4 n-seconds) 


- Terminates handler if 3 n-seconds pass with no 
remote file open. 


. Recalculates n-second for the next time. 
NOTE: Certain of these functions that would entail 


disk allocation are supressed during a system 
disk squash. 


THE INTERRUPT EVENT 


Set by GISMO when entry exists in interrupt queue 


- What’s the interrupt queue? 
62 Element array 
ultra-high memory — even MCP can’t play with it 
Accessed via special S-OPSs:s “FETCH" in SDL2 


“WAKE UP" signal to MCP 
- MCP wants to know when an I/0 completed 
—- GISMO wants MCP to know about something that 
had not been explicitly requested by the MCP. 
Examples: User I/0 had exception; requiring 
| the MCP to do retries, elogging,r etc. 


thrashing warnings 
memory parity errors for chip table 


What happens if MCP just waits for an I/0 instead 


of requesting an interrupt? 


just mount a brand new tape and see! 


ODT QUEUE EVENT 


SYSTEM/ODT Randles all OBT communication, 
manages ODT queue, SYSTEM/ODTLOG,; etc. 


Broken out from MCP in 10.0 to relieve 
MCP of a tedious, I/0-bound function 


Communicates with MCP via two ordinary 


queue files, one in each direction 


This event is merely the READ-OK Boolean 
for the queue from SYSTEM/ODT ---> MCP. 


When TRUE, MCP does a read of the message 
and passes the text to the command processor. 
Commands will be scanned, parsed, and 

acted upon. 


COMMUNICATE EVENT 


Set by GISMO whenever some job(s; 
have done a “COMMUNICATE” to he handled 
by the SMCP. (QUEUE ID = S_COMM_Q@) 


The first 45 bits of one’s ESN CENVIRONMENT 
tell the MCP what class of communicate is 
requested and point to the actual string 

of relevant fields. 


CLASSES: (2 hits) 
OG => INTERPRETER GENERATED BEHIND USER’S BACK 


O1 => THE USUAL SERVICES REQUESTED BY 
SOURCE LEVEL CONSTRUCTS 

10 => UNDEFINED: DS’es THE JOB 

11 => USED TO CLOSE FILES THAT ARE STILL OPEN 
WHEN A JOB GOES EOJ 


INTERPRETER-—-GENERATED COMMUNICATES 


Most commons PRESENCE FAULTS 
User branching to some other code 
segment which 15 not in memory. MCP has 
to read the segment from disk, mark code 
segment dictionary appropriately, and 


reinstate the program 


Same for data segments 


Likewise for segments of the interpreter itself! 


Trace to printer- the old trace interpreters 


Certain problems: memory errors, 


read out of bounds, etc. 


“REAL" COMMUNICATES 


Usually generated by the compilers in response to 
various source-level constructs that end up requiring 


operating system services. 


Most I/0-related COMMS are handled directly by 
Gismo or MMCP. A mask set up at CLEAR/START tells 


who is to handle each of the SO known communicates. 


MCP never sees READ, WRITE, SEEK, POSITION, 
MESSAGE-—-COUNT,;, various ISAM operations, etc. 


MCP handles such common things ass 
OPEN, CLOSE, PROGRAM DUMP, TIME/DATE, ZIP>s ACCEPT, 
DISPLAY, SORT CALLS; and TERMINATING A PROGRAM. 


MCP also provides services to system programs 
- Accesses various system & program structures 


Disk Directory, FPBsr FIBSr memory itself,r etc,. 


-— Lets system programs change system data normally 


inaccessible Coutside their own data area} 


Examples PACKCOPY must stop and resume all jobs 
SYSTEM/ODT must control the ODTL option 
DMS/REORG can restart jobs once the data-— 
base is fixed up. 


etc. 


“REAL” COMMUNICATES Ccontinued) 


How are communicates dones 
1. Compiler generates appropriate bit string 


somewhere in program’s memory area 


2. Special "COMMUNICATE" S-OP in each language 
causes that previously-mentioned 48-bit field 
to point to the data string, and control is 
passed to GISMO 


Examples “CLOSE PAYROLL-FILE LOCK." 
Suppose PAYROLL-FILE happens to be the 4TH 


file the user declared. 


ESN: Chase relative) 
| ee eed Ge , GS Se ema 
SS ly fone? 
1 “ug 9235 
Zz & 16 ey 
bits bits bits bits 


User’s data areas — WS bits 


happens to he 
@F311A46@G 


925 12 2u i? 
bits bits bits bits 


"REAL" COMMUNICATES (continued) 


Why this string? Because the documented form for 


this communicate that everyone must obey, readss 


CLOSE 
CTeVERS 09 Cte bits) 
CT.OBJECT FILEsNUMBER CVUY bits) 
CTeADVERBS BIT (12 bits) 

0 REEL 

1 RELEASE 

2 PURGE 

3 REMOVE 

4 CRUNCH 
5 NO REWIND 

6 OVERRIDE NAME CONVENTION AND SECURITY 
7 LcecKx 

a IF NOT CLOSED 
9 ROLLOUT 

10 AUDIT SWITCH 
il TERMINATE 


Let’s make sure this communicate is set up 
correctly -—- Apply the documented format to the 


example on the previous page. 


ESN 


pointer to result 
comm info | 


U8 “8S bits 
Length address or actual data 


type: tells amoung other things whether the result 
is in the 2nd 24 bits ("self relative") or whether 
the 2nd 24 bits points to the actual info somewhere 


in the user’s data area 
length: length of result in bits 


end 24 bits: a self relative number if the info being 
returned can be expressed as a simple number. 

Examples "ZIP" described above - how many characters? 
or a relative address of longer data 

Examples TIME/DATE to request name of day. 
we surely can’t fit "MONDAY" in 24 bits! 


COMMUNICATES Ccontinued) 


Some communicates need only a verbs 


Verb = 32 => program goes EOQJ with "COBOL ABNORMAL END" 
Verb = 38 => memory dump 
Verb = 39 => give me my se@sion # 


Others have lots of necessary fields 
Verb = 2 => write 
Object = file # 
Adverbs broken down to numerous sub fields: 
1. does user have an EOF branch? 
2. does user have an exception branch? 
3. does user have an incomplete-I10 branch? 
¥%. printer spacing/skipping info 
a» MFCU card stacking info, etc, etc. 
Additional fields for 
record length — how much is to be written; 
address of info to he written: 
key for random files; 
address of 10-character key for remote/port. 
Length and address of "result mask" info 
(for system programs handling their own 
I/O exceptions?)s: 
Linage fields for printers — 
page sizer upper margin, lower margin, 
footing, etc. 


COMMUNICATES Ccontinued) 


For certain communicates, the MCP doesn’t need to 
talk back to the progran. 
exampless dump 
| | read the reader-sorter 
sort | 


But in many cases, the MCP wants to tell what happened 
or return requested data. 
1. What happened? 
writes good write? 
EOF ? 
I/O error *” 
incomplete? 
Accept: how many characters did the operator 
AX to the program? 
ZIPs Was the zipped text valid? 
2. RETURN DATA 
TIMEs What time or date is it? 
Complex-waits which of n events woke up 
the program? 
message counts how many messages are in 
my queue? 
Another field in the ESN is filled in to indicate 
this infos 


THE CHANGE BIT EVENT 


The change bit is set by the MCP itself when there 
is at least one scheduled task that is a candidate 
for BO 


"Old" MCP’S €12.0 and before): A job is in the 
active schedule 
13.0: A job is in at least one job queue or the 


tasking schedule 


- MCP, upon waking up on the change bit event, 
turns it off and tries to fire up all jobs: 
7 Every job in the tasking schedule 

—- Goes through each job queuer initiating 
jobs as long as system mixlimit ("ML") 
and individual job queue mixlimit permit 


- The change bit is set whens 
1. A job is scheduled, E.G. EX DMPALL; 
2. When operator does a "TR" or “DR*"$ 
43. Any job goes to EOQJJ; 
¥. When memory is freed by rolling out a job; 
a. Lf the first job in any job queue is RS-ed 
and the queue is still non-empty; 
6. "ML" is increased (system ML or a job queue ML); 
7a SOme job has its priority increased above &; 


S$. Operator does a "JS." 


®FROGRAM INITIATION 


Two steps: 


1. Scheduling — building necessary structure from 


the code file. 
La BOJ —- creating memory-resident job image 


that 15s runnable 


Code files contain three structures of interest 
-« Program Parameter Block (PPB) 
» File Parameter Block CFPB> 


- Code segment dictionary 
PPB: 


- First 2 sectors of every code file. Created by compiler 
- Contains ina rigidly defined formats 
a. Everything the operator can change or query about a 
job. 

EXAMPLES: NAME, PRIORITY, MEM requirements, # of 
files, switches; max lines, NODIF bit, 
interpreter name. 

b. Pointers to “interesting"™ fields in the 
code file. 
EXAMPLES: First instruction,r DMS path 
qdictionary,r files, layout table. 
c. A level number to allow MCP to handle 
structures of different vintages. 


- At schedule time, we build an expanded four-sector PPB 

. First 2 sectors: exact copy of code file copy 

- Jgrd sectors run-time data not in code file 

EXAMPLES: Job number, session #, parent job #-, 

sched. & BOJ dates, datacomm pointers, 
link to next PPB. 7 

-« 4th sectors Stores "DS or DP" message for logging and 

or dump analyzer 
- Linked into appropriate place in given job queue or 


tasking schedule. 


PROGRAM INITIATION (Ccontinued) 


FPB 

- Two segments of disks actually 20976 bits 

- One per declared file 

- Extras automatically created by compiler for ISAM 
subfiles. 

- Contains all file attributes specifiable by either 
actual attribute or by command syntax. 

EXAMPLE: Internal & external names, hardware device, 
record size, # of areas, filetype, buffers, 
etc. 

- When job is scheduled, MCP makes copy of all FPB’s-, 
plus one for the trace file. | 


SEGMENT DICTIONARY: 

- Most “virtual"— segmented, overlayable — structures 
on the B1000 managed by dictionaries. 

« Dictionary = A contiguous array of “system 
descriptors". 

- Code segment dictionary on disks an array of relative, 

non-absolutized "normal descriptors." 

- BOJ brings in and absolutizes ND’s into SD’s. 

- Next page discusses SD’s. 

- Data segments must be overlayed to disks; 

code segments are non-changeable and thus 


do not get written back to disk. 


PROGRAM INITIATION (continued) 


BOJ is largely the process of getting space for and 
filling in fields in two structures, the "RUN STRUCTURE" 
and the "PRIMARY ENVIRONMENT." 


The Run Structure contains information relevant to the 
state of the job taken as a whole. 

- Overlay descriptor 

- FIB dictionary 

- IPC parameters 


- Most interestingly, the "RUN STRUCTURE NUCLEUS" 
CRSN). 


RSN’s are linked together by descending processor 
priority. 


RSN’s frozen in memory: never rolled out or moved. 


Nearly 200 fields related to the job itself, for example: 
NAME, JOB #, SWITCHES, PRIORITY: CHARGE #, etc. 


Many flags, pointers, and indicators to help the MCP 
understand the state of this job. 


EXAMPLE: Invisibility flag,r stopped flag, protected 
flagr cancelled flag, etc. 


Pointers to: next RSN, AX queue, DMS glohals;, overlay 
descriptor, etc. 


Event bits so GISMO can cause the job when certain 


things happen. 


Note that the Run Structure has no user data. 


If 


if 


SYSTEM DESCRIPTORS Ca digression) 


Fighty Bit Structures 
The most important fields: 
- Media bits Indicates if the info is on disk 
- In-process bits Indicates that at this instant 
we’re doing an I/O on the segment Ceither 
direction) 
- Length field 
- MPRI decay info. 
. address. 
a segment is on di cics 
MEDIA = FALSE 
address = absolute disk address 
a segment i5 in memory: 
MEDIA = TRUE 
address = memory address of the info. 


The information is preceeded by a memory link, 


of course. 
Within that links 
ML DISK is the disk address from the SD. 


ML POINTER points to the SD. 


PROGRAM INITIATION (Ccontinued) 
The other primary structure is the "environment". 


Environment is basically the data space for a program. 

Broken away from RSN in 11.0 

All programs initially have one environment, termed 
the “primary” environment. 

Secondary environment exists for DMS and IBASIC. 

IBASIC environment hides the existence of 
IBASIC/RUNNER. | 

DMS environment allows complex DMS operations to he 
interruptable at any point, hbecause the state of 
the job is stored in the "ESN" (CEnvironment 
Structure Nucleus). | 

Also permits DMS to execute on the slaves it is 
not an MCP. 


Environment concepts: a separate code file (e.g. 
DMS access routines), with a possibly-different 
interpreter and local data spacer 15 associated 


with a user job to handle certain communicates. 


Environment switching 15 quite efficient. 

Secondary environment operates at same priority as 
the user. 

RSN has dictionary of all environments that have 
heen allocated, as well as pointer to the current 
environment. | 


Max of four environments. 


Environment consists ofs 
- local data area, defined differently for each 
language. | | 
“scratchpad" —- used to save interpreter state 
| upon giving up control. | 
. ESN. 


ESN 


Various pointers, counters, and flags of interest 


to a program’s interpreter. 


Examples: 


communicate message pointer and reinstate 

message pointer (previously discussed). 

next instruction pointer. 

code segment dictionary pointer. 

data segment dictionary pointer. 

associated RSN address. 

amount of overlay disk and its address. 

MEDIA Boolean —- environment can be rolled 
out. 


rollout disk address. 


ESN Ccontinued) 
Building an environment involves several steps: 


- Reading initial scratchpad values from the PPB 


and storing them in the ESN 


. Setting up the code segment dictionary if it 
does not yet exist (from another running copy 


of the same program) 


= Handling initial data 
1) read in from code file if there’s a data 
dictionary. 
2) build links for COBOL overlayable data in 
dynamic nenory. Note: SDL/SDL2 does this 


itself via intrinsics. 


- Get rollout disk on system disk. If cannot he 


obtained, program is frozen. 


- Set up interpreter dictionary if the interpreter 


is not currently in use by some active job. 


FILE OPEN 


Builds several structures in memory 
- FIB (File Information Block) 
- [/0O descriptors 
- I/O buffer 

Specific peripheral assignment. 


FIB contains all information needed for the operating 
system to do I[/0’s to/from the file. 
Much information extracted from the FPB. Altered as 
necessary by the MCP. 
Examples MCP would change blocking factor if 
a> blocksize not integral multiple of record size 
(truncated) 
b>} to ensure backup print files blocked as necessary. 
Additional fields needed to manage I/0 
Examples current key, current access method for 
disk linage for printer files, lsn¢s) for 
remote file, ISAM flags and table pointers. 
Somewhat unusual in that the structure varies widely 
depending on the hardware device. Explanations 
there’s a lot more to be known for a disk file 


than a card reader. 


I/O descriptors —- buffer memory area pairs (Cone per 
BUFFERS value) allocated in one continuous chunk 
of memory. (Makes rollin and rollout easier) 


FILE OPEN 


OPEN EXAMPLE: opening a disk file 


Why? 1. Explicit OPEN communicate generated by user’s 
OPEN statement 
2#. Read or Write communicate for closed file 
GISMO puts job in S_COMM_QUEUE, sets 
RS M_PROB_PARAMETER to a value meaning "file 
not yet open" 


- MCP reads communicate from environment 
- Calls GLOBAL OPENERS 
- Reads FPB from disk 
- GENERAL OPEN _ VERIFICATION to check that various 
attributes are compatible. 
Examples blocksize = 0 or + 2X20 bits 
blank name 
relative non-disk file 
.- Certain hardware devices have unique open code 
(for speed) 
DISK is one of then. We call DISK_OPEN 
- Reads FIB if present 
-« Initial disk open verifications 
arealength zero 
open input/extend 
ISAM record size < 4 bytes 
. Fixup a few things for implied opens 
Example: If new,r make sure it is output 
- If no FIB,r call ASSIGN_UNIT 
- If this is a backup file, change hardware to DISK 
- Build name, e.g. BACKUP/PRT1234 _ 
—- Usercode naming transformations 
- Security checks, e.g. non-existent usercode for 
MF ID 


FILE OPEN Ccontinue?) 


—- Various checks based on type 
multi-pack duplicates 
codefile: areas = 1 and external name from 
PPB.OBJ NAME 
create an initialized disk file header 
- If there was a FIB: 
-—- Find the file 
—- If absent, see if name transformation possible 
—- If absent, either hang up the job for operator 
action or return “file missing" if requested 
by programmer 
—- If present, get the header and check access-— 
lhility and security contraints 
- If “old" file, change access dater user countr and 
several FPB fields 
- If multi-pack file, create MPF table entry 
- Get memory for FIB and update user’s FIB dictionary 
- BUILD _ FIB sets up fields in FIB and builds I/0 
descriptors 
- If ianputs;s initiate I/0’%s to prefill buffer(s3 
- If backup, create backup file control info records 
- Reinstate job into READY QUEUE 


THE DISK DIRECTORY 


Directory for each pack resides on that pack. 
Initially 14 sectors; 32 thru 47 (@20@ — @2F@). 
Each of those sectors can hold 12 names (MFID’s>. 
MFID‘S "HASH" to one of those sectors. 
If the sector fills up with names, it is linked 
to an extension sector somewhere on disk. 
The directory entry points to either: 
1. The disk file header for single-named files 
2. A subdirectory (Cof identical format to the 
directory? for 2-name files. 
Subdirectories are not hashed - they are searched 


linearly. Their entries point to the DFH’s. 


A word to the wise: Don’t put “too many" names under 
one MFID due to the linear search. This includes 
usercode MFID’s-—- WATCH IT! 


THE DISK DIRECTORY (Ccontinued) 


EXAMPLE: Find the file BOZO/WASHINGTON/SHOWITALL 
BOZO happens to be port 7, channel 10, unit 1 
s0 all addresses had better start with @FHI1@G 


WHYS Disk address fields consist of a 12-bit 
PORT—-CHANNEL—-UNIT plus a 24-bit sector address. 
The "“"PCU" consists of: 

4 BIT PORT FIELD 

4% BIT CHANNEL FIELD 
1 BIT FILLER OF ZERO 
WY BIT UNIT FIELD 


i2 BITS 
PORT 7s 7? = 111 an binary 
CHANNEL 10: 10 = 1010 in binary 
UNIT is 1 = 06001 in binary 


CONCATENATING 111 + 1010 + 0 + 6001 
= 111101000001 = @FH1I@G 


We hash the MFID of “WASHINGTON". The hashing 
algorithm happens to be simply dividing the 
10 character = 80 bit field into 20 44-bit 
fields, and exclusive-ORing them 
“WASHINGTON” = E6 Ci E2 C8 CP DS C7 ES Dé DS 


DISK DIRECTORY (continued) 


ala EXOR @éa = atia 
aGfa EXOR @Cleae = ata 
a4+a EXOR @l@ = asa 
a5a EXOR @eE@ = abe 
aBa EXOR aZa = aa 
a?a EXOR @aCa = @d5a 
a5@a EXOR @eBea = abla 
aDa EXOR @aeCeae = ala 
ala EXOR afa = aba 
agfa EXOR aDa = aha 
a5>a EXOR a5ea = ada 
aQa EXOR aCea = ala 
acCla EXOR e@e7a = aba 
aBa EXOR @E@ = asa 
a5a EXOR @34a = ada 
asa EXOR aba = aba 
aBba EXOR @6@ = @Da 
aDba EXOR ade = alla 
aQa EXOR @35@ = @5@ 
From now onr we shall work entirely in hex. The 
disk directory goes from @20@ to @2F@. Adding 


our hash result of @5@ to the directory lower limit, 
we get @25Gd. 


Let’s look at sector @25@ on that packs 


42 Pk" 
4? 2B" 
u? 25" 


4? ABC7UISAM 4? F?SDL2 OBJ 
4? RSCOBOOTI3 4? PAPRTI3 
4? T?TEST u? | ?MCPUBJ 


@F4Y1000025@ "4? 278 4? ?R NEW REL 
“MAKFILEL3 4? ??SF12 


"RLIPANDA 4? ??MMCP1313 


SELF 1% 


@FHLO00025@ 


forward Back werel 
Fu 000345} 00000000 
C3F7FUCIE 


“4H 1000023000) DSCSE64DD9 
CIDYUYOHONO FUL0008622 E2CUDSF 26D 


DYUCID2C46C9 D3SCSFIFSYO F4Y10001622 E2C46F1F 240 


CSDSUOUOHO 
D6C2ZDI4OUO 
HOUOUOUOKHO 


Fujooosgise 
FULOOOSBD2 
FULOOOSOE? 


C3D6C2D6D6 ESFLIFSHOUO FULOOOSZIC? DZDIESFIFS HOHOYUOYOHO FULO00S5SC2 
DIDSCID7CL DSCYCLYONO FY10007352 DYUDYUCSDZFL FIFIPSHYONO FULOOOASe? 
ESCSEZESYO YONOHOUOHO FULOOOHF22 DYUCSD7D4C2 DIYONOHONO FYHLOOO06A2 


We don’t find WASHINGTON: 
link @F4H1OOO34HS@ 


let’s go to the forward 


DISK DIRECTORY (continued) 


@FUIO00SHSe =" 29 PU? ?R GISMO13Z03 4? PSINITI3Z02 YW? PPGISMOLSL2 We eee 
MMCP 1320 WY? BBOOTIZO4 4? CKSDL2_NEW 4? ZBMMCP1302 4? ??" 
£ “WASHINGTONY? PR 


F c Ss 
@FH1N0034SE 000000000F ¥1000023F 1000345(00 C7CPE2DYDS FLFSFOFS4O FULOOOS9A2 
CODSCIESF1 F3FOF24OK0 F4ULOO0SBB2 C7CPE2ZDUDS FIFSFIF2Z40 F4UIOOO2DHZ 
DUDYC3DZF1 F3F2FO4OHO F4ULOOOLF82 C2D4D6E3F 1 F3FOFYHOHO FULOOOBSD2 
EPCUD3F246D DSCSESGYOUO FULOOOE9C2 DYDUCSDZF1 F3FOF2Z4OUO F4ULOOOLSB2 
MESCIE2CEC9 - DSC7E3D46D5 F4Y1000AAI2: 0000000000 0000000000 0000000000 
0000000000 0000000000 0000000000 0000000000 0000000000 0000000000 


Note that the backward & self pointers are correct; 
The forward pointer of zero implies this is the end 


of the chain. 


Happily, we find "WASHINGTON". 
Our format for a directory entrys 
10 char NAME 
34 bit ADDRESS | 
WY bit KEY: 2 = subdirectory 
QO = DFH 


The key is 2 meaning that the address of @FULOOOAAZG 
points to a subdirdctory, i.e. a list of FILE-ID’s 
with the common MFID of “WASHINGTON" 


DISK DIRECTORY Ccontinued) 


The subdirectory is chained 


Here is sector @AAVG@: 


Pu LOGORAY 


@FHLTOOOAATG 


No sign of 
@11i4s65a: 


QPULOOLL GO 


aF41001165@ 


"Fi2sl 
"OLDFRUIT 4??°-STATUS 


“OPE? PPY? P? BALANCER 
"S,SEGCHECKY? ?\S.SUX 
"GOODRESULT4????DESIGN 


FULOOLLS3SF 
E2CSD8C3C8 
E24BE2C3D8 
D7YUBE2ZD46D9 
C7DED6CHDY 
E2UBCSDPEY 


YLOOOZHSFH LOOOAAPO00 C2CIDIC1DS 
CSC3D24H040 FHLOOOABSO E24BD7C1D5 
C3C8CSC3D2 FYLOOOFEEO E24BEZEYE? 
ES4O4O4U0H0 FHLIOOLOSFO E24BD9CSDH 
CSEZEUD3SES FYLOOLOF SO CHCSE2C9C?7 
CVESHOUOHO FHLOOLL2Z10 E24UBC3D46D4 


“SHOWITALL" — 


>? ?P\P .SORT 
YP? ??S .FRUIT 


link forward to 


MYO? PZUPPPR S.GEARSS Ye PPOS.RECLIST 4???0B61875 
HPPPPDLTWELVE Y?PPPPJOBQUEUES 4??? ?RESPONSE 
WPL PSTATUSO 


We? {MEMO 


FULOOLYUABF HIOQQOAASFH 1001165000 E24BC7CSC1 DPE2F 64040 
E24BD9CSC3 D3CPEZESYO FULOOLI4FO C2F4F1F8F7 FS4UOuOuOUO 
C6FLiF2F8FY4H FLYOHOUO4O FH10012670 CHDIJESE6CS DSESCS4OUO 
DID6C2D8EX CSEYCSEZ4HO F4ULO0I3B30 D9CSE2ZD7D6 DSE2CSY4ONO 
D6D3CHC4D? EXCSESYHOUO FULOOLSB460 E2ESCIESEX E24YOUOHOHO 
DYLODHDGHO HOHOHOHOLO FULOOLYUASO E2ZESCIESEY EZDSHOUOKO 


Still no luck —- chain to @1LYHABG: 


4? PRSEQCHECK 4? ?&5.PANDA 
YP? ?0S. REMYAKF T4?? PR" 
YP???S COMBINE YP???" 


C3CIDPLOHO 
CHCLTYHOHOHO 
LOLOUOYHOHO 
EBCiD2C4C9 
DS4OUOHOHO 
C2C9DSCSHeE 


sector 


as was the main directory. 


Pp Pen 


F4U10005930 
FULOOOFEBO 
FUIOOLOSEO 
FHIOOLOASO 
F410011080 
PHLOOLIS20 


YP22—" 
uP??? 
4W??0 " 


FULOOLISFO 
F410012440 
FULOOLSB10 
FULOO1SBYUO 
FHLOO1L4OCO 
FULOOLYAHO 


DISK DIRECTORY Ccontinued) 


@FULO01UAB@ FY10015446F YI0011465F4 1O0L4AB000 DPCICICHSD D7DIDEC240 FULOO1YASO 
E24BE4D4D9 ESCAYOUONO F4LO0L4AIO CLEZE2ZCSE3 E24OuOUOHO FuLOOL DDO 
D74BC8CSE7 YOROHOUONO FULOOI4DEO 7BE24BC4C1 CODZEYDICS F4YLOOL4EOO 

WeECCADSESCS -ESCIDSD34O- FULOOINEZOFCOFIF2FSFO FS4OuUOUOuO F410015180 

6FIF2F5F9 FOYOUOUOUO F410015190 E2Z4BF1F540 4OuOKOUOuO F4100151C0 

C7CSCADPFEZ YOUOUOHONO F4H100154610 D9CSE2ZC9CH CSDSES4O4O F410017080 


GFULOOLYASE = "“YPP??? PPUPPL? RAID PROB 4Y??L-S.WORTH  4?P?C?PASSETS WP? (}" 


ee @¢ @ @ ¢@ 


"PJ HEX YO CNRS FAILUREY??+ SHOWITALL Y?P?+?F 12806 ae 
"FI2399 Ye?2?S.15 YP PPLGEARS YOPPPREGSIDENT Weer 


EUREKA! We have TYPE = O-, meaning DFH at @FHUIOOILHEZ@ 


@FULOOLHEZ@  O21CH9FULIO OLYEZ00000 1000240000 2001000140 0000100000 AQD1001000 
0020000000 OQOOOQOOADIB O6EF720000 OOOQ000LAC? DACBFOOO00 0000000000 
0000000000 OO00GOFYH1O0 5441000000 0000000000 0000000000 0000000000 
0000000000 0000000000 0000000000 0000000000 0000000000 0000000000 
0000000000 0000000000 0000000000 0000000000 0000000000 0000000000 
0000000000 0000000000 0000000000 0000000000 0000000000 0000000000 


This is recognizeable as a header. Encoded therein 
are things you see on a KA — EOF; record size, # of 
areas, file type, blocking, etc. 


S4O bits into it is the address of the first (Cand 
only?) area of actual data =: @F4U1005641@e 


QF4Y1005641e@ " IF CSV.SWE_OPTION COR % FOR ART’S DEBUGGING USE . 
| | . 83909550 NOT ((ZIP_RSN.RS WFL_ TAS" 


"K CAND ZIP_RSN.RS_TASK_NUMBER = 0) 83909600C0SP B61827" 


Yep! That’s my data 


